set term postscript enhanced color
set output "grafA.ps"

set title 'Grafico de {/Symbol q} em funcao do tempo'
set xlabel 'tempo (s)'
set ylabel '{/Symbol q} (rad)'
tetha(x) = 0.174532925*cos(sqrt(9.80665)*x)

plot tetha(x) title 'Solucao exata' w lines ,\
"exerA1_out.dat" title 'Metodo de Euler' w lines ,\
"exerA2_out.dat" title 'Metodo de Euler-Cromer' w lines


set title 'Grafico da energia em funcao do tempo'
set xlabel 'tempo (s)'
set ylabel 'Energia (J)'
set yrange [0:1]

plot "enerA1.dat" title 'Metodo de Euler' w lines ,\
"enerA2.dat" title 'Metodo de Euler-Cromer' w lines 
